<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.1 Demo</name>
<id>-1</id>
<cardCount>14</cardCount>
<cardID>2994</cardID>
<listID>10040</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-- SmartSlides version 1.1-- design and all scripts-- copyright, 4 June 1990-- Mark A. Brown-- Philosophy Department-- Syracuse University-- Syracuse, NY 13244-- (315) 443-5818-- Menu XCMDs and XFCNs are from freeware made available by-- Nine To Five Software. My thanks to them.on startUp--disables handler in Home Stack which would reset--userlevel when stack is opened by double-clickingend startUpon openStackglobal Speed, FlashNumber, ShortDelay, LongDelay, TabWidth, ¬FieldsLocked, ToolView, Squeezer, LineWidth, Linkinghide menuBarset the userLevel to 5set the cursor to browseput 100 into speed --normal speed for draggingput 4 into FlashNumber --number of times to flashput 5 into ShortDelay --interval between flashes of flasher buttonsput 20 into LongDelay --length of flashes of flasher buttonsput false into Squeezer --don't squeeze lines in text fields at firstput 3 into LineWidth --standard thickness of linesput 5 into TabWidth --standard indent created by Tabbingput false into Linking --not linking cards at firstset the hilite of background button id 99 to false-- --not chainingif the number of cards <= 2 then --seed stackput (the number of card fields is not 0) into FieldsLocked--no locked fields in seed stacksend SetUp to background button id 26-- of card 1show menubarelse --developed stackput "Precycling Cards"lock screenset the cursor to browseput 2000 into Speedshow all cardsgo firstput 100 into speedput emptyhide msghide menubarunlock screenbeep --to signal end of precyclingput true into FieldsLocked --no unlocked fields at firstend ifend openStackon closeStacklock screenset the lockmessages to truepush cardgo firstsend HideTools to background "Work"pop cardset the lockmessages to falseunlock screenif (freeSize of this stack) > 0 and the optionKey is not down thendomenu "Compact Stack"end ifend closeStackon lockFieldsglobal FieldsLocked, FieldMenuchoose Browse toolrepeat with i = 1 to the number of card fieldsset the locktext of card field i to trueend repeatput true into FieldsLockedChangeMenu FieldMenu,14,"Unlock All "set the icon of background button id 25 to "LockedFields"end lockFieldson unlockFieldsglobal FieldsLocked, FieldMenurepeat with i = 1 to the number of card fieldsset the locktext of card field i to falseend repeatput false into FieldsLockedChangeMenu FieldMenu,14,"Lock All "set the icon of background button id 25 to "UnlockedFields"end unlockFieldson NoScriptslock screenset the lockmessages to truego nextgo previousset the lockmessages to falseunlock screenif field "GraphArea" is not empty or field "LineSpecs" is not emptythenanswer "Delete slide's line/arrow/graph buttons?" ¬with "Okay" or "Cancel"if it is "Okay" thenrequestPatiencechoose button toolset the cursor to busyrepeat with i = the number of buttons down to 1if the short name of button i is "Draw" or¬the short name of button i is "Graph"thenset the cursor to busyselect button idoMenu "clear button"end ifend repeatchoose browse toolunlock screenput empty into field "LineSpecs"put empty into field "GraphArea"put empty into msghide msgend ifend ifend NoScriptson SetFontglobal Mode, Squeezerput word 1 of Mode into NewFontput word 2 of Mode into NewSizeset the textFont of the target to NewFontset the textSize of the target to NewSizeif Squeezer is truethenset the textHeight of the target to (NewSize + 2)elseset the textHeight of the target to (4*NewSize)/3end ifend SetFonton SetRateif first word of short name of target is not "AutoScroller"thenanswer "That is not an autoscrolling field." with "Okay"elseask "Enter desired number of pixels/scroll cycle." ¬with word 2 of short name of targetif it is not emptythenif it > 0 and (length of it) < 3thenset the name of target to "Autoscroller " & itelseanswer "Need a whole number. Try again." with "Okay"end ifend ifend ifend SetRateon requestClick clicksshow msg at 15,320if clicks is empty or clicks is 1 then put "Click on desired field."if clicks is 2 then put "Click at beginning and at end desired."end requestClickon request2Fieldsshow msg at 15,320put "Click on two fields to connect."end request2Fieldson requestPatienceshow msg at 15,320put "There will be a slight delay. Please be patient."end requestPatienceon requestCardshow msg at 15,270put "Please go to the desired card and click on it."end requestCardon ResetCleanUplockFieldsput (freesize of this stack) into FSif FS > 10000thenput "Compacting Stack (" & FS & " free)"domenu "Compact Stack"put empty into msghide msgend ifbeepend Reseton resetAllpush cardrequestPatiencelock screenset the lockMessages to trueput the number of cards of background "work" into lastcardrepeat with i = 1 to lastcardgo to card i of background "work"put "Resetting slide " & i & " of " & lastcard & "."CleanUplockFieldsend repeatput empty into msghide msgpop cardhidetoolshide menubarunlock screenset the lockMessages to falseend resetAllon CleanUplock screenrepeat with i = 1 to the number of card fieldsif "PopUp" is in the short name of card field ithen hide card field ielse if the short name of card field i is "TypeWriter"then put empty into card field ielse if the style of card field i is "Scrolling"then set the scroll of card field i to 0set the cursor to busyend repeatrepeat with i = 1 to the number of buttonsput the short name of button i into TheNameset the cursor to busyif TheName is not "Hidden" and " " is not in TheNamethen show button i --looks for OPTION space in TheNameif (word 1 of theName is "Shrinker") then send restore to button ielse if "Step" is in TheName then RestoreStep ielse if TheName is "Shutter"then set the style of button i to opaqueelse if TheName is "Hiliter"then set the hilite of button i to falseelse if TheName is "Inverter"then set the hilite of button i to trueelse if TheName is "Checkbox Dingbat"then set the icon of button i to 10454else if TheName is "Arrow Dingbat"then set the icon of button i to 2415end repeatif field "LineSpecs" is not empty or field "GraphArea" is not emptythenset the cursor to busychoose reg poly toolset the cursor to busydomenu "revert"choose browse toolset the cursor to busyend ifunlock screenset the cursor to browseend CleanUpon DoFX directionif direction is "next" thenput 1 into FXLineelseput 2 into FXLineend ifif field "FX" is not emptythenset the cursor to busyput line FXLine of field "FX" into requestdo "visual effect" && requestend ifdo "go " & directionend DoFXon ChangeAutoResetglobal WorkMenu--field ID 306 exists only to use its name as a "durable" global--variable, i.e. one which survives exits from HyperCardif true is in the name of field id 306 thenset the name of field id 306 to "AutoReset false"CheckMenu WorkMenu,12,Falseelseset the name of field id 306 to "AutoReset true"CheckMenu WorkMenu,12,Trueend ifend ChangeAutoReseton RestoreStep wantedput the id of button wanted into wantedput 1 into item 1 of line wanted of field "Chains"if item 2 of line wanted of field "Chains" is empty thenset the name of button ID wanted to "Step (1)"elseset the name of button ID wanted to "Step 1"end ifend RestoreStepon newLectureglobal Modeshow msg at 15,280put "Creating new SmartSlides stack. Please be patient."HideToolslock screenset the lockMessages to truego to card "FX" of this stackdomenu "Copy card"go to card 1 of this stackput "Lecture" into ModedoMenu "New Stack..." --produces clean copy of first backgroundput empty into Modeif the number of cards is 1 then --didn't abort menu commandput "Still working. Please be patient."domenu "Paste card" --adds second backgroundgo previoussend SetUp to background button id 26 --show toolssend mouseUp to background button id 117 --create cd btn "Delay"send mouseUp to background button id 119 --create cd btn "Beep"send mouseUp to background button id 206 --create cd btn "LockScreen"send mouseUp to background button id 233 --create cd btn "Opener"put 1 into field "CardNumber"--set default effects:put "scroll left slowly to card" & return & ¬"scroll right slowly to card" into field "FX"put (freesize of this stack) into FSif FS > 10000thenput "Compacting Stack (" & FS & " free)"domenu "Compact Stack"put empty into msghide msgend ifShowCreditsend ifunlock screenset the lockMessages to falsebeepend newLectureon domenu whichglobal Modeif the optionKey is up thenif which is "New Stack..." and Mode is not "Lecture" then newLectureelse if which is "Back" then type numtochar(126)else if which is "Help" then GiveHelp "General Introduction "else pass domenu--handling "New Stack…" substitutes newLecture for Apple's menu item--to prevent making a lecture stack which is only half-formed;--handling "Back" avoids accidentally changing cards--when you intend to type ~elseput "For help concerning Apple's menus, see Apple's Help Stack."helpend ifend domenuon MakeCardglobal ToolViewrequestPatienceput empty into ToolViewdoMenu "New Card"send SetUp to background button id 26 --show toolssend mouseUp to background button id 117 --create cd btn "Delay"send mouseUp to background button id 119 --create cd btn "Beep"send mouseUp to background button id 206 --create cd btn "LockScreen"send mouseUp to background button id 233 --create cd btn "Opener"put the number of this card into field "CardNumber"--set default effects:put "scroll left slowly to card" & return & ¬"scroll right slowly to card" into field "FX"put (freesize of this stack) into FSif FS > 10000thenput "Compacting Stack (" & FS & " free)"domenu "Compact Stack"end ifput empty into msghide msgend MakeCardon MakeAutoscrolllock screenset cursor to busyrequestPatienceset cursor to busycreateField 135 --AutoScroller 2put the number of card fields into newFieldset cursor to busycreateButton 79 --to hide scroll barset cursor to busychoose browse toolput the number of card buttons into lastButtonset the name of button lastbutton to "Inert"set the script of button lastbutton to emptyset cursor to busyset the rect of button lastButton to 461,50,484,271set cursor to busyput "Enter scrolltext" & return & "with return after" ¬& return & "each line." into card field newFieldset cursor to handput empty into msghide msgunlock screenselect text of card field newFieldend MakeAutoscrollon MakeTypeWriterFieldglobal ObjectIDask "What do you want typed in the field?" ¬with "Enter text to be typed here."put "--" & it into TypeTextcreateField 237put ObjectID into FieldIDset the script of card field id FieldID to TypeTextcreateButton 266set the name of button id ObjectID to "CursorCover "& FieldIDchoose browse toolend MakeTypeWriterFieldon doTyping hereif card field id here is emptythenput the script of card field id here into TypeTextdelete char 1 to 2 of TypeTextset the locktext of card field id here to falseselect text of card field id hererepeat with i = 1 to the number of chars of typetextif char i of typetext is not space then wait 5type char i of typetextend repeatset the lockText of card field id here to trueselect emptyelseput "--" & (card field id here) into TypeTextset the script of card field id here to TypeTextput empty into card field id hereif the textalign of card field id here is "right"thenput item 2 of the rect of card field id here into Y1put item 3 of the rect of card field id here into X2put item 4 of the rect of card field id here into Y2set the rect of card button ("CursorCover " & here) ¬to (X2-10),(Y1+1),(X2-3),(Y2-3)elseset the rect of card button ("CursorCover " & here) to 0,0,0,0end ifend ifend doTypingon setEffectsglobal FXpush cardlock screenput field "FX" into FXgo to card "FX"repeat with i = 1 to the number of card fieldshide card field iend repeathide button "Go Back"hide picture of card "FX"unlock screenend setEffectson HideToolsglobal Toolview, WorkMenuset the icon of background button id 26 to 28097set the icon of background button id 26 to 24272if Toolview is "ButtonTools"thenHideButtonToolsend ifif ToolView is "DrawTools"thenHideDrawToolsend ifif ToolView is "FieldTools"thenHideFieldToolsend ifhide background button id 22 --choose buttontoolhide background button id 23 --choose fieldtoolhide background button id 68 --set visual effectshide background button id 94 --button to show drawing toolshide background button id 92 --button to show button buttonshide background button id 93 --button to show field buttonshide background button id 21 --new cardhide background button id 20 --new stackhide background button id 126 --CleanUpset the icon of background button id 26 to 0set the style of background button id 26 to transparenthide background button id 98 --black backdropchangeMenu WorkMenu,3,"Show Tools "lockFieldsend HideToolson ShowToolsglobal WorkMenu, ToolViewshow background button id 98 --black backdropset the style of background button id 26 to rectangleset the icon of background button id 26 to 24272set the icon of background button id 26 to 28097set the icon of background button id 26 to 15566changeMenu WorkMenu,3,"Hide Tools "show background button id 81 --emergency editing (right margin)show background button id 126 --CleanUpshow background button id 20 --new stackshow background button id 21 --new cardshow background button id 93 --show field buttonsshow background button id 92 --show button buttonsshow background button id 94 --show drawing toolsshow background button id 68 --set visual effectsshow background button id 23 --choose fieldtoolshow background button id 22 --choose buttontoolif ToolView is empty then ShowFieldToolselse if ToolView is "FieldTools" then ShowFieldToolselse if ToolView is "ButtonTools" then ShowButtonToolselse if ToolView is "DrawTools" then ShowDrawToolsend ShowToolson ShowFieldToolsglobal FieldsLocked, ToolViewput "FieldTools" into ToolViewif FieldsLockedthenset the icon of background button id 25 to "LockedFields"elseset the icon of background button id 25 to "UnlockedFields"end ifshow background button id 10 --title fieldshow background button id 14 --body fieldshow background button id 12 --full card fieldshow background button id 69 --large font fieldshow background button id 121 --popup fieldshow background button id 249 --shimmerfieldshow background button id 250 --bulgershow background button id 251 --rectangle fieldshow background button id 252 --scrollingshow background button id 253 --typewriter fieldshow background button id 254 --autoscrolling fieldshow background button id 11 --columnsshow background button id 284 --change fontshow background button id 285 --change field styleshow background button id 134 --toggle textHeightshow background button id 86 --left align textshow background button id 87 --center align textshow background button id 88 --right align textshow background button id 25 --lock/unlock fieldsend ShowFieldToolson HideFieldToolshide background button id 25hide background button id 88hide background button id 87hide background button id 86hide background button id 134 --toggle textHeighthide background button id 285 --change stylehide background button id 284 --change fonthide background button id 11hide background button id 254 --autoscrolling fieldhide background button id 253 --typewriter fieldhide background button id 252 --scrollinghide background button id 251 --rectangle fieldhide background button id 250 --bulgerhide background button id 249 --shimmerfieldhide background button id 121hide background button id 69hide background button id 12hide background button id 14hide background button id 10end HideFieldToolson ShowButtonToolsglobal ToolViewput "ButtonTools" into ToolViewshow background button id 99 --chain togethershow background button id 16 --hilitershow background button id 129 --tile hilitersshow background button id 70 --flashershow background button id 255 --invertershow background button id 256 --greyoutshow background button id 72 --shuttershow background button id 80 --maskshow background button id 133 --shrinkershow background button id 297 --vanillashow background button id 257 --steppershow background button id 103 --checkbox dingbatsshow background button id 108 --arrow dingbatsshow background button id 109 --hand dingbatsshowChainToolsend ShowButtonToolson HideButtonToolshideChainToolshide background button id 109 --hand dingbatshide background button id 108 --arrow dingbatshide background button id 103 --checkbox dingbatshide background button id 297 --vanillahide background button id 257 --stepperhide background button id 133 --shrinkerhide background button id 80 --maskhide background button id 72 --shutterhide background button id 256 --greyouthide background button id 255 --inverterhide background button id 70 --flasherhide background button id 129 --tile hilitershide background button id 16 --hiliterhide background button id 99 --chain togetherend HideButtonToolson showChainToolsshow background button id 117 --Delayshow background button id 119 --Beepshow background button id 206 --LockScreenshow background button id 233 --Openershow background button id 271 --Linkerif field "GraphArea" is not emptythen show background button id 272 --Graphif field "LineSpecs" is not emptythen show background button id 273 --Drawif field "PopUps" is not emptythen show background button id 270 --PopUpend showChainToolson HideChainToolshide background button id 270 --PopUphide background button id 273 --Drawhide background button id 272 --Graphhide background button id 271 --Linkerhide background button id 233 --Openerhide background button id 206 --LockScreenhide background button id 119 --Beephide background button id 117 --Delayend HideChainToolson ShowDrawToolsglobal ToolViewput "DrawTools" into ToolViewshow background button id 27 --drawlineshow background button id 258 --drawline wavyshow background button id 259 --drawline dottedshow background button id 102 --drawarrowshow background button id 260 --drawArrow wavyshow background button id 261 --drawArrow dottedshow background button id 262 --border fieldshow background button id 263 --shadow fieldshow background button id 264 --connect fieldsshow background button id 265 --make graphshow background button id 84 --erase recent/allshow background button id 293 --protect recentend ShowDrawToolson HideDrawToolshide background button id 293 --protect recenthide background button id 84 --erase recent/allhide background button id 265 --make graphhide background button id 264 --connect fieldshide background button id 263 --shadow fieldhide background button id 262 --border fieldhide background button id 261 --drawArrow dottedhide background button id 260 --drawArrow wavyhide background button id 102 --drawArrowhide background button id 259 --drawline dottedhide background button id 258 --drawline wavyhide background button id 27 --drawLineend HideDrawToolson ShowNumberglobal WorkMenushow field "CardNumber"push cardlock screenset the lockmessages to truego to card 1 of background "FX"set the visible of field "CardNumber" to truepop cardset the lockmessages to falseunlock screenChangeMenu WorkMenu,9,"Hide Slide Numbers "end ShowNumberon HideNumberglobal WorkMenuhide field "CardNumber"lock screenset the lockmessages to truepush cardgo to first card of background "FX"set the visible of field "CardNumber" to falsepop cardset the lockmessages to falseunlock screenChangeMenu WorkMenu,9,"Show Slide Numbers "end HideNumberon SortAllsort numeric by field "CardNumber"go firstend SortAllfunction clickLine--Improved version of Apple's script.--Using clickloc is more reliable than using MouseV.--MouseV may have changed between time mouse was clicked--and time instruction is executed.if the style of the target is "scrolling" thenput the scroll of the target into Scrollelseput 0 into Scrollend ifreturn ((((item 2 of the clickloc) + Scroll) - ¬(item 2 of the rect of the target + 4)) ¬ -- 4 to allow for descendersdiv the textheight of the target) + 1end clickLineon shrink NextObjectput the rect of button id NextObject into rectWantedput word 2 of the short name of button id NextObject into incrementput the bottom of button id NextObject into thisBottomadd increment to item 2 of rectwantedif thisBottom - (item 2 of rectwanted) < (increment*0.75)thenput thisBottom into item 2 of rectwantedend iflock screenset the rect of button id NextObject to rectWantedunlock screenadd 1 to item 1 of line NextObject of field "Chains"end shrinkon TabToFirstglobal ThisName, ThisSpot, ThisLineput quote & thisName & quote into word 6 of ThisSpotput ThisLine + 1 into word 2 of ThisSpotend TabToFirston TabToLastglobal ObjectNumber, ThisName, ThisLine, ThisSpotput ObjectNumber into LastColumnrepeat with i = ObjectNumber to the number of card fieldsif thisName is not the short name of card field ithen exit repeatelseput i into LastColumnend ifend repeatput LastColumn into word 6 of ThisSpotput max(1,(ThisLine - 1)) into word 2 of ThisSpotend TabToLaston tabkeyglobal TabWidth, ThisSpot, ObjectNumber, ThisName, ThisLine, ¬TabDirectionif the shiftKey is "down" then put -1 into TabDirectionelse put 1 into TabDirectionif the selectedchunk is emptythen --put cursor in first card field, if anyif the number of card fields > 0thenselect after text of card field 1elsepass TabKeyend ifelseput the short name of the selectedfield into thisNameif "Column" is in thisNamethen --move to same line of next column, if anyput the selectedline into ThisSpotput word 2 of ThisSpot into ThisLineput word 6 of ThisSpot into ObjectNumberadd tabDirection to word 6 of ThisSpot --sets normal expectations-- --but check for exceptionsif tabDirection is 1thenif the number of card fields <= ObjectNumber --no next columnthen TabToFirstelse--if "Column" is not in the short name --old versionif thisName is not in the short name ¬of card field (ObjectNumber + 1)thenTabToFirstend ifend ifelse --expecting to move to previous column, but see if one existsif ObjectNumber = 1 --no previous fieldthen TabToLastelse --check for previous columnif thisName <> ¬(the short name of card field (ObjectNumber - 1))then --no previous columnTabToLastend ifend ifend if --all necessary adjustments to thisSpot now madeselect after ThisSpotelse if ThisName is "XValues" then TabToY --in background columnelse if ThisName is "YValues" then TabToX --in background columnelse if ThisName is "XMax" then select line 1 of field "XInt"else if ThisName is "XInt" then select line 1 of field "XMin"else if ThisName is "XMin" then select line 1 of field "YMax"else if ThisName is "YMax" then select line 1 of field "YInt"else if ThisName is "YInt" then select line 1 of field "YMin"else if ThisName is "YMin" then select line 1 of field "XMax"else --not in column; indentput the selectedchunk into hereput ((word 2 of here) - 1) into word 4 of heredo "select " & here --taking care not to delete anythingrepeat with i = 1 to TabWidthtype " "end repeatend ifend ifend tabkeyon TabToXglobal TabDirectionput word 2 of the selectedline into ThisLineif TabDirection is 1 then add 1 to ThisLineif ThisLine > 16 then put 1 into ThisLineselect after line ThisLine of field "XValues"end TabToXon TabToYglobal TabDirectionput word 2 of the selectedline into ThisLineif TabDirection is -1 then subtract 1 from ThisLineif ThisLine < 1 then put 16 into ThisLineselect after line ThisLine of field "YValues"end TabToYon returnInFieldif the shiftKey is not "down"then pass returnInFieldelseput the selectedline into ThisSpotif word 2 of thisSpot is not 1thensubtract 1 from word 2 of ThisSpotselect after ThisSpotelsepass returnInFieldend ifend ifend returnInFieldon CreateField wantedglobal FieldsLocked, ObjectNumber, ObjectIDlock screenshow field id wantedselect field id wanteddomenu "copy field"domenu "paste field"hide field id wantedput the number of card fields into ObjectNumberput the ID of card field ObjectNumber into ObjectIDif wanted is 237 --typewriter fieldthenlockFieldselseput false into FieldsLockedset the icon of background button id 25 to "UnlockedFields"if wanted is not 137 and wanted is not 122 --not Rectangle or PopUpthenchoose browse toolunlock screenselect char 1 to 0 of card field ObjectNumberelseunlock screenend ifend ifend CreateFieldon CreateButton wantedglobal ObjectNumber, ObjectIDshow background button id wantedselect background button id wanteddomenu "copy button"domenu "paste button"hide background button id wantedput the number of buttons into ObjectNumberput the ID of button ObjectNumber into ObjectIDend CreateButtonon arrowkey whichif which is "left" or which is "right"thenset the lockmessages to trueif which is "left" then go previousif which is "right" then go nextset the lockmessages to falseelsepass arrowkeyend ifend arrowkeyon GiveHelp whateverput quote & whatever into wantedif last char of wanted is " " then delete last char of wantedput quote after wantedif "Menu" is not in wanted then put " Command" after wantedput "Getting Help Concerning: " & wantedpush cardlock screenset the lockMessages to truego to stack "SmartSlides 1.1 Help"go to card whateverunlock screenhide msgset the lockmessages to falseexit to HyperCardend GiveHelpon PrepForPrintingShowNumberput the number of cards of background "work" into lastCardrepeat with i = 1 to lastCardgo to card i of background "work"put "Preparing card " & i & " of " & lastCard & "."repeat with i = 1 to the number of buttonsif the style of button i is not "transparent"then hide button iend repeatend repeatput "Ready for printing."end PrepForPrintingon ShowCreditshide menubarsend ClearCard to Field "Scripts"put empty into field "Credits"show field "Credits"put "SmartSlides Philosophy Department" ¬& return into field "Credits"put "version 1.1 Syracuse University " ¬& return after field "Credits"put "© June 5, 1990 Syracuse, NY 13244   " ¬& return after field "Credits"put "Mark A. Brown (315) 443-5818     " ¬& return & return after field "Credits"put "SmartSlides, its name, design and scripts, are all copyrighted."¬& return & return after field "Credits"put "THIS STACK IS SHAREWARE. " & return after field "Credits"put "You may freely copy it and give away copies," ¬& return after field "Credits"put "as long as you preserve its copyright and shareware notices." ¬& return after field "Credits"put "YOU MAY NOT SELL IT." & return after field "Credits"put "If you use this to give a lecture or presentation," ¬& return after field "Credits"put "or as the base for another stack for similar purposes," ¬& return after field "Credits"put "please send $15 to me at the above address" ¬& return after field "Credits"put "the first time you use it."¬& return after fiel
